home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / mitt.dir / 00127_Script_127 < prev    next >
Text File  |  1997-09-29  |  829b  |  36 lines
  1. on mouseDown
  2.   
  3.   --puppetSound 0
  4.   set ch = clickOn()
  5.   put the castNum of sprite ch into btnCN
  6.   repeat while the stillDown
  7.     if rollOver(ch) then
  8.       set the castNum of sprite ch to btnCN+1
  9.       updateStage
  10.       wait 10
  11.       global UsermonNum
  12.       if (field "UsermonNum") <= 10 then
  13.         put "10" into field "UsermonNum"
  14.       else
  15.         if (field "UsermonNum") > 100 then
  16.           put "100" into field "UsermonNum"
  17.         else
  18.           put integer((field "UsermonNum")-1) into field "UsermonNum"
  19.         end if
  20.       end if
  21.       
  22.       set UsermonNum to (field "UsermonNum")
  23.       hilite field "UsermonNum"
  24.       
  25.     else
  26.       set the castNum of sprite ch to btnCN
  27.     end if
  28.     updateStage
  29.   end repeat
  30.   set the castNum of sprite ch to btnCN
  31.   
  32. end
  33.  
  34. on mouserUp
  35.   
  36. end